home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / batsound.zip / SIREN.PAS < prev   
Pascal/Delphi Source File  |  1993-03-23  |  447b  |  35 lines
  1. program siren;
  2.  
  3. uses crt;
  4.  
  5. var
  6. varies : integer;
  7. dummy : char;
  8.  
  9. begin
  10. varies := 695;
  11. writeln('Press a key...');
  12. repeat
  13. varies := 695;
  14. sound(varies);
  15. delay(300);
  16. while varies > 671 do
  17. begin
  18. varies := varies -1;
  19. sound (varies);
  20. delay(1);
  21. end;
  22. varies := 588;
  23. sound(varies);
  24. delay(300);
  25. while varies < 610 do
  26. begin
  27. sound(varies);
  28. delay(1);
  29. varies := varies + 1;
  30. end;
  31. until keypressed;
  32. nosound;
  33. dummy := readkey;
  34. end.
  35.